home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tf.d64 / manager doc.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  12KB  |  305 lines
  1. 1000 REM-------------------------------
  2. 1010 REM
  3. 1020 REM"  [205][193][206][193][199][197][210]-64
  4. 1030 [143]
  5. 1040 [143]"  RIGHT$NSTRUCTIONS FOR THE USE OF
  6. 1050 REM   THIS PRODUCTIVITY TOOL
  7. 1060 REM
  8. 1070 REM"  [198]OR THE [195]OMMODORE 64
  9. 1080 [143]
  10. 1090 [143]"  ATNUTHOR: CHR$LEN PEEKODIE
  11. 1100 REM"          90 [203]INGSMOUNT [208]K [210]D
  12. 1110 [143]"          (null)ORONTO, (null)NTARIO
  13. 1120 REM           (416) 461-3483
  14. 1130 REM
  15. 1140 REM-------------------------------
  16. 1150 Q$=CHR$(34): R$=CHR$(13): H$=CHR$(19)
  17. 1160 POKE 53280,6: POKE 53281,12: PRINT CHR$(14)CHR$(8);
  18. 1170 GOSUB 3940
  19. 1180 PRINT "[205][193][206][193][199][197][210]-64  IS A  PRODUCTIVITY TOOL FOR"
  20. 1190 PRINT "THE  [195]OMMODORE 64.  [201]T ALLOWS  THE USER"
  21. 1200 PRINT "TO  MANAGE HIS  ACTIVITIES MORE  EASILY"
  22. 1210 PRINT "THROUGH USE OF A  DISK DIRECTORY.  [198]ROM"
  23. 1220 PRINT "THIS DIRECTORY, THE USER CAN MANAGE HIS"
  24. 1230 PRINT "FILES AND  LOAD AND  RUN PROGRAMS  WITH"
  25. 1240 PRINT "JUST A FEW SIMPLE KEYSTROKES."
  26. 1250 PRINT "[193]T PRESENT, THE  PROGRAM IS  WRITTEN IN"
  27. 1260 PRINT "[194][193][211][201][195] AND SUFFERS FROM THE  SLOWNESS OF"
  28. 1270 PRINT "THIS LANGUAGE.  [212]HE AUTHOR WILL BE CON-"
  29. 1280 PRINT "VERTING  THIS  INTO  A TOTALLY  [205]ACHINE"
  30. 1290 PRINT "[204]ANGUAGE  PROGRAM  AND  INTERFACING  IT"
  31. 1300 PRINT "WITH THE OPERATING SYSTEM SUCH THAT ITS"
  32. 1310 PRINT "PRODUCTIVITY ENHANCING FEATURES WILL BE"
  33. 1320 PRINT "FAR GREATER."
  34. 1330 PRINT "[212]HE FOLLOWING PAGES  CONTAIN DETAILS OF"
  35. 1340 PRINT "THE PROGRAM OPERATION."
  36. 1350 GOSUB 3900
  37. 1360 GOSUB 3940
  38. 1370 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][199][197][206][197][210][193][204] [201][206][198][207][175][175][175][175][175][175][175][175][175][175][175][175]"
  39. 1380 PRINT "[212]HE DIRECTORY DISPLAY  PRESENTED TO YOU"
  40. 1390 PRINT "BY THIS  PROGRAM  CONSISTS OF ALL '[208][210][199]'"
  41. 1400 PRINT "FILES ON THE CURRENT DRIVE (SEE THE '[196]'"
  42. 1410 PRINT "COMMAND).  [212]HEY ARE  PACKED IN TO  SHOW"
  43. 1420 PRINT "40 FILES PER PAGE  (SEE THE '[194]' AND '[198]'"
  44. 1430 PRINT "COMMANDS)."
  45. 1440 PRINT "[212]HE DISPLAY HAS 2  DIFFERENT AREAS: THE"
  46. 1450 PRINT "FILE COMMANDS AND THE COMMAND LINE (THE"
  47. 1460 PRINT "BOTTOM  LINE - 1  WHERE THE '>'  PROMPT"
  48. 1470 PRINT "CHARACTER IS).  [197]ACH  AREA HAS A SET OF"
  49. 1480 PRINT "VALID COMMANDS  WHICH WILL BE EXPLAINED"
  50. 1490 PRINT "LATER."
  51. 1500 PRINT "[215]HENEVER THE  PROGRAM  KNOWS  THAT  THE"
  52. 1510 PRINT "DATA IN THE  DIRECTORY HAS CHANGED, IE:"
  53. 1520 PRINT "BECAUSE IT DID A  DELETE OR  SOMETHING,"
  54. 1530 PRINT "IT  AUTOMATICALLY RELOADS THE DIRECTORY"
  55. 1540 PRINT "SO THAT YOU ARE  ALWAYS  PRESENTED WITH"
  56. 1550 PRINT "THE MOST UP-TO-DATE INFORMATION."
  57. 1560 GOSUB 3900
  58. 1570 GOSUB 3940
  59. 1580 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][201][205][208][210][207][214][197][205][197][206][212][211][175][175][175][175][175][175][175][175][175][175][175][175]"
  60. 1590 PRINT "[212]HERE ARE MANY  IMPROVEMENTS WHICH WILL"
  61. 1600 PRINT "BE  MADE TO THIS  PROGRAM FOR THE  NEXT"
  62. 1610 PRINT "RELEASE. [212]HE MAJOR ONE WILL BE THAT THE"
  63. 1620 PRINT "PROGRAM WILL BE  COMPLETELY  RECODED IN"
  64. 1630 PRINT "[205]ACHINE [204]ANGAUGE FOR  SPEED AND TO EASE"
  65. 1640 PRINT "THE INTERFACE TO THE  OPERATING SYSTEM."
  66. 1650 PRINT "[212]HIS INTERFACE  WILL BE SUCH THAT IF IN"
  67. 1660 PRINT "[205][193][206][213][193][204] MODE, THE  DISPLAY CAN BE CALLED"
  68. 1670 PRINT "UP WITH  1 KEYSTROKE.  [201]F IN [193][213][212][207] MODE,"
  69. 1680 PRINT "THE  DISPLAY WILL BE  AUTOMATICALLY PUT"
  70. 1690 PRINT "ON THE  SCREEN WHEN THE  SYSTEM REGAINS"
  71. 1700 PRINT "CONTROL FROM A PROGRAM.  [201]N THIS  MODE,"
  72. 1710 PRINT "[205][193][206][193][199][197][210]-64 WILL  APPEAR LIKE A RESIDENT"
  73. 1720 PRINT "MENU, ALLOWING THE  USER TO GO OFF  AND"
  74. 1730 PRINT "RUN  PROGRAMS, ALWAYS  RETURNING TO THE"
  75. 1740 PRINT "MENU WITH  NO CHANGES TO  HIS  EXISTING"
  76. 1750 PRINT "PROGRAMS.  [212]HIS, COUPLED WITH THE  EASY"
  77. 1760 PRINT "DISK  FILE  MANIPULATION,  MAKES FOR  A"
  78. 1770 PRINT "REAL PRODUCTIVITY IMPROVEMENT."
  79. 1780 GOSUB 3900
  80. 1781 GOSUB 3940
  81. 1782 PRINT "[208].[211]............"
  82. 1783 PRINT "[201]'VE  RECENTLY NOTICED THAT THE NAME OF"
  83. 1784 PRINT "'[205]ANAGER-64'  IS  ALREADY IN USE, SO IT"
  84. 1785 PRINT "WILL BE CHANGED  TO  '[211]ESSION [205]ANAGER'."
  85. 1786 PRINT "[203]EEP YOUR EYES OPEN FOR IT!"
  86. 1787 PRINT "[201]F YOU THINK OF ANY USEFUL  CHANGES FOR"
  87. 1788 PRINT "THIS PROGRAM, PLEASE LEAVE ME A PRIVATE"
  88. 1789 PRINT "MESSAGE ON THE [212][208][213][199] [194][194][211].  [212]HANKS!": GOSUB 3900
  89. 1790 GOSUB 3940
  90. 1800 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][205][193][201][206] [205][197][206][213][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  91. 1810 PRINT "[198]ILE COMMANDS:"
  92. 1820 PRINT "1   [195][144]   [195]OPY         2  [196][144]   [196]ELETE"
  93. 1830 PRINT "3   [204][144]   [204]OAD         4  [205][144]   [205][204] LOAD"
  94. 1840 PRINT "5   [206][144]   [206]EW NAME     6  [210][144]   LOAD & [210]UN"
  95. 1850 PRINT "7   [211][144]   [205][204] LOAD & [211]YS"
  96. 1860 PRINT "[195]OMMAND LINE (LINE 24):"
  97. 1870 PRINT "8   [193][144]   [193]UTO MODE    9  [194][144]   PAGE [194]ACK"
  98. 1880 PRINT "10  [195][144]   [195]OLOUR CHG   11 [196][144]   [196]ISK DATA"
  99. 1890 PRINT "12  [198][144]   PAGE [198]WD     13 [200][144]   [200]ELP"
  100. 1900 PRINT "14  [205][144]   [205]ANUAL MODE  15 [210][144]   [210]ELOAD DIR"
  101. 1910 PRINT "[193]NYWHERE ON THE SCREEN:"
  102. 1920 PRINT "16 [195][211][210][144]  [195]URSOR CONTROL UP,DN,LT,RT"
  103. 1930 PRINT "17 [210][212][206][144]  [197]XECUTE FILE COMMANDS. [201]F THERE"
  104. 1940 PRINT "        ARE NO FILE COMMANDS - EXIT."
  105. 1950 PRINT "18 [200][207][205][197][144] [208]UT CURSOR AT TOP FILE NAME"
  106. 1960 PRINT "19 [196][197][204][144]  [196]ELETE LAST KEYSTROKE"
  107. 1970 PRINT "20  _[144]   [197]SCAPE FROM DATA ENTRY"
  108. 1980 PRINT "[197]NTER THE COMMAND NUMBER TO BE EXPLAIN-"
  109. 1990 PRINT "ED (1-20), [210][197][212][213][210][206]  GO TO  SEQUENTIALLY,"
  110. 2000 I=0: INPUT "OR 99 TO EXIT:";I
  111. 2010 IF I=99 THEN PRINT "[147][154]"CHR$(9)CHR$(142);: POKE 53280,14: POKE 53281,6: END
  112. 2020 IF I<1 OR I>20 GOTO 2060
  113. 2030 IF I>10 GOTO 2050
  114. 2040 ON I GOTO 2060,2170,2280,2370,2460,2560,2650,2760,2850,2930
  115. 2050 ON I-10 GOTO 3020,3110,3190,3260,3350,3450,3550,3660,3720,3800
  116. 2060 GOSUB 3940
  117. 2070 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][195]    [195]OPY[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  118. 2080 PRINT "[208]LACED BESIDE A  FILE NAME ON THE  DIR-"
  119. 2090 PRINT "ECTORY  DISPLAY, THIS  WILL  CAUSE  THE"
  120. 2100 PRINT "PROGRAM TO INVOKE THE 1541 '[195][207][208][217]' COMM-"
  121. 2110 PRINT "AND.  [212]HE  PROGRAM WILL  FIRST ASK  YOU"
  122. 2120 PRINT "FOR A NAME FOR THE COPY OF THE FILE AND"
  123. 2130 PRINT "THEN WILL  CREATE A  FILE OF THAT  NAME"
  124. 2140 PRINT "WHICH IS  OTHERWISE  IDENTICAL  TO  THE"
  125. 2150 PRINT "ORIGINAL FILE."
  126. 2160 GOSUB 3900
  127. 2170 GOSUB 3940
  128. 2180 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][196]    [196]ELETE[175][175][175][175][175][175][175][175][175][175][175][175][175]"
  129. 2190 PRINT "[208]LACED BESIDE A  FILE NAME ON THE  DIR-"
  130. 2200 PRINT "ECTORY  DISPLAY,  THIS  WILL  CAUSE THE"
  131. 2210 PRINT "PROGRAM TO  INVOKE THE  1541  '[211][195][210][193][212][195][200]'"
  132. 2220 PRINT "COMMAND.  [212]HE  IDENTIFIED  FILE WILL BE"
  133. 2230 PRINT "DELETED FROM THE  DISK.  [212]HE MESSAGE ON"
  134. 2240 PRINT "THE  BOTTOM  LINE  INDICATES  THAT SOME"
  135. 2250 PRINT "FILES ACTUALLY WERE SCRATCHED.  [208]ATTERN"
  136. 2260 PRINT "MATCHING IS, OF COURSE, NOT  SUPPORTED."
  137. 2270 GOSUB 3900
  138. 2280 GOSUB 3940
  139. 2290 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][204]    [204]OAD[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  140. 2300 PRINT "[208]LACED BESIDE A  FILE NAME ON THE  DIR-"
  141. 2310 PRINT "ECTORY  DISPLAY,  THIS  WILL  CAUSE THE"
  142. 2320 PRINT "PROGRAM TO STOP AND LOAD THE IDENTIFIED"
  143. 2330 PRINT "FILE.  [212]HE  LOAD WILL BE THE RELOCATING"
  144. 2340 PRINT "TYPE, IE:"
  145. 2350 PRINT TAB(10)"[204][207][193][196] '[208][199][205]',8"
  146. 2360 GOSUB 3900
  147. 2370 GOSUB 3940
  148. 2380 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][205]    [205][204] LOAD[175][175][175][175][175][175][175][175][175][175][175][175]"
  149. 2390 PRINT "[208]LACED BESIDE A  FILE NAME ON THE  DIR-"
  150. 2400 PRINT "ECTORY  DISPLAY,  THIS  WILL  CAUSE THE"
  151. 2410 PRINT "PROGRAM TO STOP AND LOAD THE IDENTIFIED"
  152. 2420 PRINT "[205][204] PROGRAM.  [212]HE  LOAD  WILL  BE OF THE"
  153. 2430 PRINT "NON-RELOCATING TYPE, IE:"
  154. 2440 PRINT TAB(10)"[204][207][193][196] '[205][204]',8,1"
  155. 2450 GOSUB 3900
  156. 2460 GOSUB 3940
  157. 2470 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206]    [206]EW NAME[175][175][175][175][175][175][175][175][175][175][175]"
  158. 2480 PRINT "[208]LACED BESIDE A  FILE NAME ON THE  DIR-"
  159. 2490 PRINT "ECTORY  DISPLAY,  THIS  WILL  CAUSE THE"
  160. 2500 PRINT "PROGRAM  TO  INVOKE THE  1541  '[210][197][206][193][205][197]'"
  161. 2510 PRINT "COMMAND.  [217]OU  WILL  BE  ASKED FOR  THE"
  162. 2520 PRINT "NEW  NAME  FOR THE  FILE  AND THEN  THE"
  163. 2530 PRINT "PROGRAM  WILL  CAUSE  THE  NAME  TO  BE"
  164. 2540 PRINT "CHANGED AS REQUESTED."
  165. 2550 GOSUB 3900
  166. 2560 GOSUB 3940
  167. 2570 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][210]    LOAD & [210]UN[175][175][175][175][175][175][175][175][175]"
  168. 2580 PRINT "[208]LACED BESIDE A  FILE NAME ON THE  DIR-"
  169. 2590 PRINT "ECTORY  DISPLAY,  THIS  WILL  CAUSE THE"
  170. 2600 PRINT "PROGRAM TO STOP, LOAD THE FILE AND THEN"
  171. 2610 PRINT "START IT RUNNING.  [212]HE LOAD  WILL BE OF"
  172. 2620 PRINT "THE RELOCATING TYPE, IE:"
  173. 2630 PRINT TAB(10)"[204][207][193][196] '[208][199][205]',8"R$TAB(10)"[210][213][206]"
  174. 2640 GOSUB 3900
  175. 2650 GOSUB 3940
  176. 2660 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][211]    [205][204] LOAD & [211]YS[175][175][175][175][175][175]"
  177. 2670 PRINT "[208]LACED BESIDE A[160] FILE NAME ON THE  DIR-"
  178. 2680 PRINT "ECTORY  DISPLAY,  THIS  WILL  CAUSE THE"
  179. 2690 PRINT "PROGRAM TO  STOP, LOAD  THE [205][204] FILE AND"
  180. 2700 PRINT "SYS TO THE  STARTING ADDRESS.  [217]OU WILL"
  181. 2710 PRINT "BE ASKED TO  PROVIDE THE  STARTING ADD-"
  182. 2720 PRINT "RESS IN  DECIMAL.  [212]HE  LOAD WILL BE OF"
  183. 2730 PRINT "THE NON-RELOCATING TYPE, IE:"
  184. 2740 PRINT TAB(10)"[204][207][193][196] '[205][204]',8,1"R$TAB(10)"[211][217][211] #####"
  185. 2750 GOSUB 3900
  186. 2760 GOSUB 3940
  187. 2770 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][193]    [193]UTO MODE[175][175][175][175][175][175][175][175][175][175]"
  188. 2780 PRINT "[198]ROM THE  COMMAND LINE  (LINE 24), THIS"
  189. 2790 PRINT "ALLOWS YOU TO  CHANGE THE MODE OF OPER-"
  190. 2800 PRINT "ATION  OF THE  PROGRAM.  [212]HIS WILL ONLY"
  191. 2810 PRINT "HAVE  AN  EFFECT  ONCE  THE  PROGRAM IS"
  192. 2820 PRINT "IMPROVED TO  INTERFACE WITH THE OPERAT-"
  193. 2830 PRINT "ING SYSTEM OF THE [195]64."
  194. 2840 GOSUB 3900
  195. 2850 GOSUB 3940
  196. 2860 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][194]    PAGE [194]ACK[175][175][175][175][175][175][175][175][175][175]"
  197. 2870 PRINT "[198]ROM THE  COMMAND LINE  (LINE 24), THIS"
  198. 2880 PRINT "ALLOWS YOU TO PAGE BACKWARDS WITHIN THE"
  199. 2890 PRINT "DIRECTORY  DISPLAY.  [211]INCE  A  DISK CAN"
  200. 2900 PRINT "HAVE UP TO 144 FILES ON IT, IT MAY TAKE"
  201. 2910 PRINT "SEVERAL  PAGES TO SHOW THEM ALL TO YOU."
  202. 2920 GOSUB 3900
  203. 2930 GOSUB 3940
  204. 2940 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][195]    [195]OLOUR CHG[175][175][175][175][175][175][175][175][175]"
  205. 2950 PRINT "[198]ROM THE  COMMAND LINE  (LINE 24), THIS"
  206. 2960 PRINT "ALLOWS YOU TO  CHANGE THE  COLOURS USED"
  207. 2970 PRINT "TO  DISPLAY  DATA  ON THE  SCREEN.  [212]HE"
  208. 2980 PRINT "COLOURS  WHICH MAY BE  CHANGED  ARE THE"
  209. 2990 PRINT "BORDER,  BACKGROUND,  TITLES, COMMANDS,"
  210. 3000 PRINT "PROGRAMS AND ERROR MESSAGES."
  211. 3010 GOSUB 3900
  212. 3020 GOSUB 3940
  213. 3030 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][196]    [196]ISK DATA[175][175][175][175][175][175][175][175][175][175]"
  214. 3040 PRINT "[198]ROM THE  COMMAND LINE  (LINE 24), THIS"
  215. 3050 PRINT "ALLOWS YOU TO  CHANGE THE  DEFAULT DATA"
  216. 3060 PRINT "USED WHEN ACCESSING THE DISK DIRECTORY."
  217. 3070 PRINT "[212]HE  INITIAL  DEFAULTS ARE DRIVE # = 8,"
  218. 3080 PRINT "AND SUB-DRIVE # = 0, SO IT IS CORRECTLY"
  219. 3090 PRINT "SETUP FOR A SINGLE 1541 DRIVE."
  220. 3100 GOSUB 3900
  221. 3110 GOSUB 3940
  222. 3120 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][198]    PAGE [198]WD[175][175][175][175][175][175][175][175][175][175][175]"
  223. 3130 PRINT "[198]ROM THE  COMMAND LINE  (LINE 24), THIS"
  224. 3140 PRINT "ALLOWS YOU TO  PAGE FOREWARD WITHIN THE"
  225. 3150 PRINT "DISK DIRECTORY.  [211]INCE A  DISK CAN HAVE"
  226. 3160 PRINT "UP TO  144  FILES  ON IT,  IT  MAY TAKE"
  227. 3170 PRINT "SEVERAL  PAGES TO SHOW YOU ALL OF THEM."
  228. 3180 GOSUB 3900
  229. 3190 GOSUB 3940
  230. 3200 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][200]    [200]ELP[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  231. 3210 PRINT "[198]ROM THE  COMMAND LINE  (LINE 24), THIS"
  232. 3220 PRINT "ALLOWS  YOU TO  CALL-UP A ONE PAGE HELP"
  233. 3230 PRINT "DISPLAY WHICH HAS A  BRIEF  DESCRIPTION"
  234. 3240 PRINT "OF EACH OF THE VALID COMMANDS."
  235. 3250 GOSUB 3900
  236. 3260 GOSUB 3940
  237. 3270 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][205]    [205]ANUAL[175][175][175][175][175][175][175][175][175][175][175][175][175]"
  238. 3280 PRINT "[198]ROM THE  COMMAND LINE  (LINE 24), THIS"
  239. 3290 PRINT "ALLOWS YOU TO  CHANGE THE MODE OF OPER-"
  240. 3300 PRINT "ATION OF THE  PROGRAM.  [212]HIS  WILL ONLY"
  241. 3310 PRINT "HAVE AN  EFFECT  ONCE  THE  PROGRAM  IS"
  242. 3320 PRINT "IMPROVED TO  INTERFACE WITH THE OPERAT-"
  243. 3330 PRINT "ING SYSTEM OF THE [195]64."
  244. 3340 GOSUB 3900
  245. 3350 GOSUB 3940
  246. 3360 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][210]    [210]ELOAD DIR[175][175][175][175][175][175][175][175][175]"
  247. 3370 PRINT "[198]ROM THE  COMMAND LINE  (LINE 24), THIS"
  248. 3380 PRINT "ALLOWS YOU TO  FORCE THE PROGRAM TO RE-"
  249. 3390 PRINT "LOAD THE  DIRECTORY FROM THE DISK.  [212]HE"
  250. 3400 PRINT "PROGRAM WILL  RELOAD ANYWAY  EVERY TIME"
  251. 3410 PRINT "IT KNOWS  THERE HAS BEEN A  CHANGE, BUT"
  252. 3420 PRINT "IT WOULD  NOT KNOW, FOR EXAMPLE, IF YOU"
  253. 3430 PRINT "CHANGED DISKETTES."
  254. 3440 GOSUB 3900
  255. 3450 GOSUB 3940
  256. 3460 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][195][211][210]   [195]URSOR CONTROL[175][175][175][175][175][175]"
  257. 3470 PRINT "[198]ROM  ANY  PLACE  ON  THE  SCREEN,  YOU"
  258. 3480 PRINT "MAY USE THE CURSOR CONTROL KEYS TO MOVE"
  259. 3490 PRINT "AROUND.  [212]HE PROGRAM  WATCHES AND WON'T"
  260. 3500 PRINT "LET YOU GO TO ANY  IMPROPER PLACES.  [201]T"
  261. 3510 PRINT "MOVES YOU  AROUND THE  COMMAND  AREA IN"
  262. 3520 PRINT "FRONT OF THE FILE NAMES AND UP AND DOWN"
  263. 3530 PRINT "TO THE COMMAND LINE."
  264. 3540 GOSUB 3900
  265. 3550 GOSUB 3940
  266. 3560 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][210][212][206]   [210]ETURN[175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  267. 3570 PRINT "[212]HE  RETURN KEY HAS SEVERAL  FUNCTIONS."
  268. 3580 PRINT "[201]T IS USED AT THE END OF DATA ENTRY, IE"
  269. 3590 PRINT "AFTER YOU PICK A  NEW FILE NAME OR DISK"
  270. 3600 PRINT "NUMBER.  [201]T IS  ALSO USED TO  CAUSE THE"
  271. 3610 PRINT "PROGRAM TO READ THE COMMANDS BESIDE THE"
  272. 3620 PRINT "FILE NAMES AND[160] EXECUTE THEM.  [201]F THERE"
  273. 3630 PRINT "ARE NO COMMANDS, THE PROGRAM RETURNS TO"
  274. 3640 PRINT "NORMAL [194][193][211][201][195] OPERATION."
  275. 3650 GOSUB 3900
  276. 3660 GOSUB 3940
  277. 3670 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][200][207][205][197]  CURSOR [200][207][205][197][175][175][175][175][175][175][175][175][175]"
  278. 3680 PRINT "[198]ROM ANY[160] POSITION  ON THE[160] SCREEN, THE"
  279. 3690 PRINT "'[200][207][205][197]' KEY WILL[160] MOVE THE CURSOR TO THE"
  280. 3700 PRINT "TOP FILE NAME ON THE DISPLAY."
  281. 3710 GOSUB 3900
  282. 3720 GOSUB 3940
  283. 3730 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][196][197][204]   [196]ELETE CHAR[175][175][175][175][175][175][175][175][175]"
  284. 3740 PRINT "[212]HE  DELETE KEY WILL  DELETE FILE COMM-"
  285. 3750 PRINT "ANDS IF THE CURSOR IS OVER THE COMMAND."
  286. 3760 PRINT "[201]T WILL ALSO DELETE CHARACTERS ENTERRED"
  287. 3770 PRINT "AS PART OF  DATA ENTRY OF FILE NAMES OR"
  288. 3780 PRINT "NUMERIC DATA."
  289. 3790 GOSUB 3900
  290. 3800 GOSUB 3940
  291. 3810 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]_   BACK ARROW[175][175][175][175][175][175][175][175][175][175]"
  292. 3820 PRINT "[212]HE  BACK ARROW KEY IS THE  ONLY WAY TO"
  293. 3830 PRINT "ESCAPE FROM DATA ENTRY.  [201]F YOU SOMEHOW"
  294. 3840 PRINT "GOT INTO A  NUMERIC OR  CHARACTER  DATA"
  295. 3850 PRINT "ENTRY MODE, OR DECIDED YOU DIDNT REALLY"
  296. 3860 PRINT "WANT TO  ENTER ANY  DATA, PRESSING  THE"
  297. 3870 PRINT "BACK  ARROW  KEY WILL  CANCEL THE  DATA"
  298. 3880 PRINT "ENTRY REQUEST."
  299. 3890 GOTO 1350
  300. 3900 PRINT "[210][197][212][213][210][206]=NEXT PAGE / [200][207][205][197]=MAIN MENU[144]";
  301. 3910 GET K$: IF K$=R$ THEN RETURN
  302. 3920 IF K$=H$ THEN GOTO 1790
  303. 3930 GOTO 3910
  304. 3940 PRINT "[147][144]"TAB(15)"[205][193][206][193][199][197][210]-64[146]": RETURN
  305.